use 5.010;

my $Debug = $ENV{DEBUG};

my $secret = int(1 + rand 100);

print "Don't tell anyone, but the secret number is $secret.\n" if $debug;

print "set DEBUG if you want to know the secret" . "\n";
